home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / amos / ldosv25d.lha / ldos_demo / rexx / AMOS-DRAW.Rexx
OS/2 REXX Batch file  |  1991-10-06  |  443b  |  35 lines
  1. /* Small demo, sending drawing command to AMOS */
  2.  
  3. address 'AMOS-DRAW'
  4. Say 'Sending stuff to AMOS'
  5.  
  6. /* Jerk around a bit with the Plot-command */
  7. y=10
  8. do x=100 to 400 by 5
  9.    Draw x y
  10.    end
  11.  
  12. do y=12 to 102 by 2
  13.    draw x y
  14.    end
  15.  
  16. do x=400 to 100 by -5
  17.    draw x y
  18.    end
  19. do y=102 to 12 by -2
  20.    draw x y
  21.    end
  22. do t=0 to 45 by 1
  23.    x=x+3
  24.    y=y+1
  25.     DRAW x y
  26.    end
  27. do t=0 to 45 by 1
  28.    x=x+3
  29.    y=y-1
  30.     DRAW x y
  31.    end
  32.  
  33. Say "All done!"
  34. exit 0
  35.